home *** CD-ROM | disk | FTP | other *** search
/ Archive Magazine CD 1995 / Archive Magazine CD 1995.iso / discs / prog_disc / volume_3 / issue07 / pipeline / ducat / buildsoc next >
Encoding:
Text File  |  1990-02-22  |  2.6 KB  |  243 lines
  1. %OP%TH1
  2. %OP%DFT
  3. %OP%PL68
  4. %OP%BM4
  5. %OP%LM5
  6. %OP%HE///@d@/
  7. %OP%FO//-@p@-//
  8. %CO:A,4,0%
  9.  
  10.  
  11.  
  12. DAY
  13.  
  14.  
  15.  
  16. %V%%R%choose(round(mod(B9-1.1.0+1,7)+1,2),"Sat","Sun","Mon","Tue","Wed","Thu","Fri")
  17. %V%%R%choose(round(mod(B10-1.1.0+1,7)+1,2),"Sat","Sun","Mon","Tue","Wed","Thu","Fri")
  18. %V%%R%choose(round(mod(B11-1.1.0+1,7)+1,2),"Sat","Sun","Mon","Tue","Wed","Thu","Fri")
  19. %V%%R%choose(round(mod(B12-1.1.0+1,7)+1,2),"Sat","Sun","Mon","Tue","Wed","Thu","Fri")
  20. %V%%R%choose(round(mod(B13-1.1.0+1,7)+1,2),"Sat","Sun","Mon","Tue","Wed","Thu","Fri")
  21. %V%%R%choose(round(mod(B14-1.1.0+1,7)+1,2),"Sat","Sun","Mon","Tue","Wed","Thu","Fri")
  22. %V%%R%choose(round(mod(B15-1.1.0+1,7)+1,2),"Sat","Sun","Mon","Tue","Wed","Thu","Fri")
  23. %V%%R%choose(round(mod(B16-1.1.0+1,7)+1,2),"Sat","Sun","Mon","Tue","Wed","Thu","Fri")
  24. %V%%R%choose(round(mod(B17-1.1.0+1,7)+1,2),"Sat","Sun","Mon","Tue","Wed","Thu","Fri")
  25. %V%%R%choose(round(mod(B18-1.1.0+1,7)+1,2),"Sat","Sun","Mon","Tue","Wed","Thu","Fri")
  26. %V%%R%choose(round(mod(B19-1.1.0+1,7)+1,2),"Sat","Sun","Mon","Tue","Wed","Thu","Fri")
  27.  
  28.  
  29. ANN.  
  30. DAILY
  31. %CO:B,10,73%
  32. BUILDING SOCIETY ACCOUNT
  33. ------------------------
  34.  
  35. DATE    
  36.  
  37.  
  38.  
  39. %V%%R%22.7.89
  40. %V%%R%28.7.89
  41. %V%%R%21.8.89
  42. %V%%R%16.9.89
  43. %V%%R%23.9.89
  44. %V%%R%30.9.89
  45. %V%%R%14.10.89
  46. %V%%R%14.10.89
  47. %V%%R%16.11.89
  48. %V%%R%16.12.89
  49. %V%%R%date
  50.  
  51.  
  52.  INT RATE Y 
  53. Y INT 
  54. %CO:C,8,61%
  55.  
  56.  
  57.  
  58. TIME
  59. ELAP-
  60. SED
  61.  
  62.  
  63. %V%%C%%D0%B10-B9
  64. %V%%C%%D0%B11-B10
  65. %V%%C%%D0%B12-B11
  66. %V%%C%%D0%B13-B12
  67. %V%%C%%D0%B14-B13
  68. %V%%C%%D0%B15-B14
  69. %V%%C%%D0%B16-B15
  70. %V%%C%%D0%B17-B16
  71. %V%%C%%D0%B18-B17
  72. %V%%C%%D0%B19-B18
  73.  
  74.  
  75. %V%%R%%TC%12
  76. %V%%C%%TC%%D4%(C22/100)/365
  77.  
  78.  
  79. %CO:D,12,49%
  80.  
  81.  
  82.  
  83.  INVESTMENT
  84.  
  85.  
  86.  
  87. %V%%R%150
  88. %V%%R%400
  89.  
  90.  
  91.  
  92. %V%%R%200
  93.  
  94. %V%%R%1.5
  95.  
  96.  
  97.  
  98.  
  99.  
  100.  
  101.  
  102. %CO:E,12,37%
  103.  
  104.  
  105.  
  106. %R%WITHDRAWAL
  107.  
  108.  
  109.  
  110.  
  111.  
  112. %V%%R%90
  113. %V%%R%100
  114. %V%%R%25
  115.  
  116. %V%%R%150
  117.  
  118. %V%%R%130
  119. %V%%R%250
  120.  
  121.  
  122.  
  123.  
  124.  
  125. %CO:F,9,25%
  126.  
  127.  
  128.  
  129. %L%  BALANCE
  130.  
  131.  
  132.  
  133. %V%%R%150
  134. %V%%R%if(D10=0,F9-E10,F9+D10)
  135. %V%%R%if(D11=0,F10-E11,F10+D11)
  136. %V%%R%if(D12=0,F11-E12,F11+D12)
  137. %V%%R%if(D13=0,F12-E13,F12+D13)
  138. %V%%R%if(D14=0,F13-E14,F13+D14)
  139. %V%%R%if(D15=0,F14-E15,F14+D15)
  140. %V%%R%if(D16=0,F15-E16,F15+D16)
  141. %V%%R%if(D17=0,F16-E17,F16+D17)
  142. %V%%R%if(D18=0,F17-E18,F17+D18)
  143. %V%%R%if(D19=0,F18-E19,F18+D19)
  144.  
  145.  
  146.  
  147.  
  148. %CO:G,8,13%
  149.  
  150.  
  151.  
  152. %L% INT
  153. EARNED
  154.  
  155.  
  156.  
  157. %V%%R%%D2%F9*(C10*$C$23)+G9
  158. %V%%R%%D2%F10*(C11*$C$23)+G10
  159. %V%%R%%D2%F11*(C12*$C$23)+G11
  160. %V%%R%%D2%F12*(C13*$C$23)+G12
  161. %V%%R%%D2%F13*(C14*$C$23)+G13
  162. %V%%R%%D2%F14*(C15*$C$23)+G14
  163. %V%%R%%D2%F15*(C16*$C$23)+G15
  164. %V%%R%%D2%F16*(C17*$C$23)+G16
  165. %V%%R%%D2%F17*(C18*$C$23)+G17
  166. %V%%R%%D2%F18*(C19*$C$23)+G18
  167.  
  168.  
  169.  
  170.  
  171. %CO:H,9,0%
  172.  
  173.  
  174.  
  175. NEW BAL.
  176.  
  177.  
  178.  
  179.  
  180. %V%%R%F10+G10
  181. %V%%R%F11+G11
  182. %V%%R%F12+G12
  183. %V%%R%F13+G13
  184. %V%%R%F14+G14
  185. %V%%R%F15+G15
  186. %V%%R%F16+G16
  187. %V%%R%F17+G17
  188. %V%%R%F18+G18
  189. %V%%R%F19+G19
  190.  
  191.  
  192.  
  193.  
  194. %CO:I,12,0%
  195.  
  196.  
  197.  
  198.  
  199.  
  200.  
  201.  
  202.  
  203.  
  204.  
  205.  
  206.  
  207. %CO:J,12,0%
  208.  
  209.  
  210.  
  211.  
  212.  
  213.  
  214.  
  215.  
  216.  
  217.  
  218.  
  219.  
  220. %CO:K,12,0%
  221.  
  222.  
  223.  
  224.  
  225.  
  226.  
  227.  
  228.  
  229.  
  230.  
  231.  
  232.  
  233.  
  234.  
  235.  
  236.  
  237.  
  238.  
  239.  
  240.  
  241.  
  242.  
  243.